module swapper
	implicit none
contains
	subroutine swap(a,b,n)
		integer,dimension(:),intent(inout) :: a,b
		integer,intent(in) :: n
		integer :: i
		integer :: temp
		do i=1,n
			temp = a(i)
			a(i) = b(i)
			b(i) = temp
		end do
	end subroutine swap
end module swapper
